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PREFACE 

This instant provides a brief description of the major language features of 
FORTRAN Extended Version 4.8. FORTRAN Extended is designed to 
comply with the American National Standards Institute FORTRAN 
language, as described in X3. 9-1966. 



The FORTRAN Extended compiler operates in conjunction with the 
COMPASS 3 assembly language processor under control of the following 
operating systems: 



NOS 1 for the CONTROL DATA® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, 74 and 6000 Series Computer Systems 

NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 Models 71, 
72, 73, 74, and 6000 Series Computer Systems 

SCOPE 2 for the CONTROL DATA CYBER 170 Model 176, CYBER 70 
Model 76, and 7600 Computer Systems 



Relocatable binaries compiled by versions of FORTRAN Extended prior to 
Version 4.7 cannot be run with CRM BAM 1.5 or AAM 2; they must be 
recompiled. In this instant CONTROL DATA extensions to the language 
are indicated by shading. 

More detailed information can be found in the following publications: 



Publication 

FORTRAN Extended Version 4 Reference Manual 

FORTRAN Common Library Mathematical Routines 
Reference Manual 



Publication 
Number 

60497800 

60498200 



> 



CID Version 1 Guide for Users of FORTRAN 60482700 
Extended Version 4 

FORTRAN Extended Version 4 User's Guide 60499700 

NOS Version 1 Reference Manual, Volume 1 of 2 60433400 
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NOS/BE Version 1 Reference Manual 60493800 

SCOPE Version 2 Reference Manual 60342600 



CDC manuals can be ordered from Control Data Corporation, 
Literature and Distribution Services, 308 North Dale Street, 
St. Paul, Minnesota 55103. 



This manual describes a subset of the features and 
parameters documented in the FORTRAN Extended 
Version 4 Reference Manual. Control Data cannot be 
responsible for the proper functioning of any features 
or parameters not documented in the FORTRAN 
Extended Version 4 Reference Manual. 
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LANGUAGE ELEMENTS 

SYMBOLIC NAMES 
Symbolic names are 1 -6 iii(| letters and digits; the first must be a letter. 

FORTRAN CHARACTER SET 



Alphabetic: 


A to Z 










Numeric: 


to 9 










Special: 


= equal 
+ plus 
- minus 
* asterisk 


/ 
( 
) 


slash 

left parenthesis 

right parenthesis 

comma 


$ 


decimal point 
dollar sign 
blank 
quote 



Any character acceptable to the operating system can be used in Hollerith infor- 
mation and comments. Blanks are significant only in Hollerith fields. 



FORTRAN STATEMENTS 

Column Contents 

1 C or $ or * indicates comment line 

1-2 C$ indicates debug directive if in debug mode 

1-2 0/ indicates list directive 

1-5 Statement label 

6 Any character other than blank or zero denotes continua- 

tion, except on comment lines or list directives 

7-72 Statement 

73-80 Identification field; not processed by compiler, but printed 

with source listing 

Statements are written in columns 7-72; blanks are ignored except in Hollerith 
fields. All 80 columns can be used for data input. Statements can be labeled 
by an integer constant in the range 1-99999. If a C, $ or * appears in column 1 
vvithout a"$ or / in column 2, the remainder of the card is ignored by the com- 
piler but printed with the source listing as a comment. 

$ may be used to. separate multipje statements on a card except with 
FORMAT statement$ or list or debug directives. 
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CONSTANTS 

A constant is a fixed quantity. Table 1 lists the types of constants and gives 
a brief description of each. 




TABLE 1. LIST OF CONSTANTS 



Constants 


Form 


Examples 


1 nteger 


n^n^. . . n^ 
1 2 m 


2 




1<m<18 


247 




.Range: -(2^^-1) to 2^9-1 






Integer addition and subtraction results can 


31456932 




range from -(2^^-1) to 2^^-1. Integer mul- 






tiplication and division operands and results 






can range from -(2"^^-! ) to 2^^-1. Integers 






used as a DO index or as a subscript must 






be in the range from 1 to 2^^-1. 




Real 


n.n .n n. n.nE±s .nE±s n.E±s nE±s 






n Coefficient < 15 decimal digits 


7.5 
3.22 




E±s Exponent 


42.E1 
314.E05 




s Base 10 scale factor 


700. E-2 




Range 10"^^^ to 10"^^^^ 


.5 
0. 




Accurate to approximately 14 decimal 






digits 




Double 


n.nD±s .nD±s n.D±s nD±s 


5.834D2 


Precision 




7.D2 




n Coefficient < 29 decimal digits 


9.2D03 
14.D-5 




D±s Exponent 


3120D4 
l.DO 




s Base 10 scale factor 






Range 10-293^10+322 






Accurate to approximately 29 decimal 






digits 




Complex 


(r1,r2) 


(1.,7.54) 
{-2.1E1,3.24) 




r1 Real part 


(0.,-l.) 
(4.0,5.0) 




r2 Imaginary part 






Each part has same range as a real constant 
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Constants 



Hollerith 



Logical 



TABLE 1. LIST OF CONSTANTS (Contd) 



1<m<20 



Form 



nHf 



nm 



nU 

9%t or "f 

Kn<10 in expression 

H left justified with blank fill 

R right justified with binary zero fTH 

L left iustified with binary zero flit : ; 

A Hollerith string delimited .by paired ' - -'' 
symbols ?^ t^ or quotation marks can be ; 
used anywhere the H fornrt. of :the' ~ 
Hollerith constant can - be used: For ~ 
exanr^ple: ' • 

lf(V.EQ.=?^YES=?^} GO TO 20 

PRINT 1,^ SORT - ¥= ,SQRT{,5} 
1 FORMAT {A10,F10.2} 



Examples 



7777777777B 
^52528 



TRUE, or X 
.FALSE, or .F. 



6HABCDEF 

,7 R JUST! FY 
7LTHE,END 

.^A8CD£F¥^\ 
-;^^ABCDEF"^ 



LOGICAL XI, Z2 
XI = .TRUE. 
Z2 = .FALSE. 



I 



I 



VARIABLES 

A variable is a quantity that can be changed. A variable's symbolic name is 
composed of 1-6 or 7 letters or digits; the first must be a letter. 

Table 2 lists the types of variables and gives a brief description of each. 

A variable not defined in a type declaration is real if the first character of the 
symbolic name is any letter other than l,J,K,L,M,N and' if the type i$ not 
changed by an IMPLICIT statement in that program' unit- The default implicit 
typing is as follows: 



A-H, 0-Z 
l-N 



Real 



Integer 
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TABLE 2. LIST OF VARIABLES 



Variables 


Form 


Examples 


1 nteger 


Range -{2^^-1) to 2^^-1. As subscript 
or Index of a DO statement, maximum 
value is 2^^-1 . As a result of multipli- 
cation or division or conversion between 

real and integer, maximum value is 
2^8_i. 


ITEM 
JSUM 
KOOL 
INTEGER X 


Real 


Range 10"^^^ to lO"*""^^^, approximately 
14 significant digits. 


AVAR 
SUM 
TUF 
BETA 
REAL I 


Double 
Precision 


Must be defined explicitly in type de- 
claration. Range 10"^^"^ to 10'*'^^^, 
approximately 29 significant digits. 
Occupies two storage words. 


DOUBLE PRECISION 
*OMEGA,X,B 
DOUBLE X,Y 


Complex 


Must be defined explicitly in type 
declaration. Occupies two storage 
words; each contains a number in real 
variable format, and each number can 
range from 10"^^^ to 10"*"^^^. 


COMPLEX A,D 
COMPLEX P2 


Logical 


Must be defined explicitly in type 
declaration. 


LOGICAL L3,C 
LOGICAL L2,R 





ARRAYS 

An array name can have up to three subscripts. Zero and negative subscripts 
are not allowed. Subscripts can be any valid arithmetic expression. A non- 
integer subscript value Is truncated to integer. If the number of subscripts in a 
reference Js less than the declared dimensions of the array, the compiler assumes 
a value of one for missing subscripts. The number of subscript expressions in a 
reference must not exceed the number of declared dimensions. 
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Table 3 can be used to find an element in the linear sequence of storage 
locations. 



TABLE 3. ARRAY ELEMENT POSITION 



Number of 
Dimensions 


Array 
Dimension 


Subscript 


Location of 
Element Relative to 
Starting Location 


1 
2 
3 


ALPHAfK) 

ALPHA(K,M) 

ALPHA(K,M,N) 


ALPHA(k) 

ALPHA(k,m) 

ALPHA(k,m,n) 


{k-1)*E 

(k-1+K*(m-1))*E 

(k-1 + K*(m-1+M*(n-l)))*E 



The following notations are used in table 3: 

• K, M, and N are dimensions of the array. 

e k, m, and n are actual subscript values of the array. 

• 1 is subtracted from each subscript value because the subscript starts 
with 1, not 0. 

• E is length of the element. For real, logical, and integer arrays, 
E == 1. For complex and double precision arrays, E = 2. 



PRINTER CONTROL CHARACTERS 

The first characters of each line in a print file perform the following functions: I 
Character Action 



I 



Blank 

1 
+ 
Any other character 



Space vertically one line then print 

Space vertically two lines then print 

Eject to first line of next page before printing 

No advance before printing; allows overprinting 

Refer to operating system reference manual 

STATEMENT FORMS 



The following symbols are used in the descriptions of statements: 



V variable or array element 

sn statement label 

iv integer variable 

name symbolic name 

u input/output unit: 1- or 2-digit decimal integer constant; 

integer variable with value of: 0-99 or a Hollerith value 
denoting the file name, left justified with zero fill. 

fn format designator; such as a statement label, array name, 

variable, or array element 

p dummy arguments that agree in order, type, and number to 

the actual arguments passed to the subroutine 

b dummy statement label arguments that agree in order, type, 

and number to the actual statement labels passed to the 
subroutine 
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m indexing parameter 

n string of 1-5 octal digits 

c. . . c string of 1-70 characters 

earn arithmetic or masking expression 

eri relational or logical expression 

a variable or array name 

iolist input/output list specifying items to be transmitted 

Stat any unlabeled executable statement other than END, DO, or 
another logical IF. 





ASSIGNMENT STATEMENTS 




Form 


Examples 


V = arithmetic expression 


A= B + C 


logical v = erI 


LOGICAL L,IVI,N 




L = M .AND.N 


V = masking expression 


CAT = 5252B ,0R. Z 


MULTIPLE ASSIGNMENT 




v-j = Vo = . . . V = expression 


X- Y = Z= (10/+ B)/SUM(1) 


1 FLOW CONTROL STATEMENTS 




GO TO sn 


GO TO 30 


GO TO (sn^, . . . , sn^), iv 


GO TO (1,4,7,2), N 


GO TO (sn^, .,. ,sn^) iv 


GOTO (3,6,10,1) J 


GO TO (sn^, . . . , sn^), earn 


GO TO (1,2,9,4), A + B 


GO TO (sn^, . . , , sn^^) earn 


GO TO (3A5.6) N + J 


GOTO iv (sn^, . . . , sn^) 


GO TO NEXT (1,2,3,4) 


GO TO iv,{sn^, sn^) 


GO TO LSWTCH, (10,20,30,40) 


ASSIGN sn TO iv 


ASSIGN 10 TO LSWTCH 


IF (eam) sn^,sn2,sno 


IF (l-N) 3,4,6 


IF (eam) sn^,sn2 


IF (rY*K) 100, 200 


IF (erI) sn 


IF (P.AND.O) RES = 7.2 


IF (erl) $n^,sn2 


IF (K.EQ. 100) 60,70 


DO sn iv = mi,m2,mo 


DO 100 1 = 1,10,2 


DO sn iv = mi,m2 


DO 2 J = 1,5 
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Form 


Examples 






sn CONTINUE 


100 CONTINUE 


PAUSE 


PAUSE 


PAUSE n 


PAUSE 2 


PAUSE ^c . . . 0=5^ 


PAUSE # CHANGE TAPE =^ 


STOP 


STOP 


STOP n 


STOP 25 


STOP ¥^...c^ 


STOP ^ END OF RUN ^ 


END 


END 



1 



) 



TYPE DECLARATION 
Arrays can be dimensioned in type specifications. 

INTEGER A,B,C(10) 
TYPE INTEGER X,Y,N 
REAL NEXT,X(5) 



INTEGER name^, . . . , name 

TYPE INTEGER name^ name^^ 

REAL name^, . . . , name 
TYPE REAL name^, . . . , name 
COMPLEX name^, . . . , name^ 
TYPE COMPLEX name.,, . . . , name^ 



TYPE REAL N,J,CAT 

COMPLEX CC,J 

TYPE COMPLEX N0N,Z{3) 



DOUBLE PRECISION name^, . . . ,name^ DOUBLE PRECISION DP1,DP2 

DOUBLE name-,, name^ DOUBLE DP3 

TYPE DOUBLE PRECISION name-, name^ 

TYPE DOUBLE PRECISION CAT,DOG 



TYPE DOUBLE name^ name^ 

LOGICAL name.,, . . . , name 
TYPE LOGICAL name.,, . . . ,name^ 
IMPLICIT type.,(ac), . . . ,typej^(ac) 



TYPE DOUBLE HEN,DUCK 
LOGICAL L1,L2 
TYPE LOGICAL LL,LN 



IMPLICIT REAL (l-N),COMPLEX(A,Q,R-T) 

ac one or more alphabetic characters or ranges of characters {first and 
last separated by a minus sign) separated by commas 



EXTERNAL DECLARATION 
EXTERNAL name., name^ | EXTERNAL ABS 
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STORAGE ALLOCATION 
Form 



type name^ (d^) 

TYPE type name^ (d^) 

DIMENSION name^ (d^), . . . , name^ (d^) 



Examples 




REAL CJ (3,3) 
TYPE REAL DJ (10) 

DIMENSION SUM (10) 



■rsr-: 



d: 



type 



array, declarator, one to three integer constants; in a subpro- 
gram, one to three integer constants or variables 

INTEGER, REAL, COMPLEX, DOUBLE PRECISION, 
LOGICAL, or DOUBLE 



COMMON V 



COMMON/blkname^ /v 



COMMON A,B,C 

/blknamej^/v^, . . . , v^^ 

COMMON/BLK/D,E,F/CAT/X,Y.Z(10) 




COMM0N//v^,.. . ,v^ 

bikname symbolic name or 1-7 digits 



C0MM0N//NEXT,JAY{3) 



I 



// 

V: 



blank common 
variable or array name 



DATA vlist-j/dlist^/, . . . , vlist^^/dlist^/ 
DATA {vlist.j--dlist^), . . . ,(vlist^=dlist^) 



DATA A,B,C/3.,27.5,5.0/ 
DATA (X=3J,(Y=5.) 



vlist- array names, array elements, variable names or Implied DO list, 

separated by commas 

dlist- one or more constant list forms separated by commas, with rf 

an integer constant repetition factor: 

constant (constant list) 

rf*constant rf* (constant list) 
rf (constant list) 




EQUIVALENCE (glist^), (glist^) 



EQUIVALENCE (N,J),(X,Y) 



I 



glistj 
LEVELi,a^, 



two or more variables, array elements, or array names 
separated by commas 



LEVEL 3,X,Y,Z 



unsigned integer 1, 2 or 3, indicating level to which list 
h allocated 




variable or array name 



PROGRAM UNITS 

PROGRAM name (file^, file^) 

PROGRAM name 



PROGRAM A{INPUT,OUTPUT) 
PROGRAM B 
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Form 

FUNCTION name{p.,, . . . , Pr,) 
type FUNCTION name (Pi, . . . , p^) 
BLOCK DATA 
BLOCK DATA name 
SUBROUTINE name (p^, 
SUBROUTINE name 
SUBROUTINE name (p^, 



,Pn) 



Examples 

FUNCTION GRATER(A,B) 
REAL FUNCTION D{X,Y) 
BLOCK DATA 
BLOCK DATA BD3 
SUBROUTINE X(C,D,E) 
SUBROUTINE PGM 



,.p^}, RETURNS (b^ b^} 

SUBROUTINE SUB{X,Y}, RETURNS <IV1,N} 

SUBROUTINE name, RETURNS (b^. b^) 

SUBROUTINE SUB2, RETURNSg,K,L) 



ENTRY narne 



name (p^, . . . , p^) = expression 



ENTRY POINT 



ENTRY BOX 



STATEMENT FUNCTIONS 
ADD{X,Y,C,D) = X+Y+C+D 



> 



CALL name 

CALL name (p^, . . . , p^) 



SUBPROGRAM CONTROL STATEMENTS 

CALL JIM 
CALL JIM (A,2) 



CALL name (p^ p^),RETURNS (b^, . . . , b^) 

CALL JOHN {X,Y),RETURNS {2,3) 



> 



CALL name,RETURNS (b-j b^) 

RETURN 
RETURN i 



CALL SUB4,RETURNS {5,2,2) 

RETURN 

RETURN M 



a dummy argument in a RETURNS list 



NPUT/OUTPUT 



PRINT fnJoHst 
PRINT fn 
PRlNT(u,fn)Jollst 



PRINT 4AB,N 
PRINT 20 
PRINT (6,17) A 
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Form 


Examples 


PR1NT*,iolist 


PRINT *,N, (C(I)>1.N} 


PRINT{u,fn) 


PRINT(NUIV1, 46) 


PRINTlu/) iolist 


PRINT (19,*) X,SQRT(X) 


PUNCH fn,iollst 


PUNCH 2,X,Y,Z 


PUNCH fn 


. RUNCH 30 


PUNCH (u,fn} iolist 


PUNCH{NUM,FIVIT)J,K 


PUNCH*Jollst 


PUNCH *,=7^X =5t,X 


PUNCH(u,*) iolist 


PUNCH (4/) Ad), AU) 


PUNCH(u,fn) 


PUNCH (45,66) 


WRITE{u,fn) iolist 


WRITE (4,27) X,Y,Z 


WRITE(u,fn) 


WRITE (2,30) 


WRITE fnjolist 


WRITE 203, B(2) 


WRITE fn 


WRITE 66 


WRITE (u) iolist 


WRITE (3) A,B,C 


WRITE (u) 


WRITE (3) 


WRlTE(u,*} Iolist 


WRITE (4,*) ABCD 


WRITE*,iolist 


WRitE *,J.K 


READ{u,fn) iolist 


READ (5,100) X,Y,Z 


READ(u,fn) 


READ (5,100) 


READ fn, iolist 


- READ lOOAB^C 


READ fn 


READ 100 


READ(u) iolist 


READ (3) JN,AB 


READ(u) 


READ (5) 


READ(u/) iolist 


READ (5/) Q,R 


READ*,iolist 


REAp*.(C(J),D(J),J=l,N) 


BUFFER IN (u,p} (a,b) 


BUFFER IN (1,1)(R(1),R(512)) 


BUFFER OUT(u,p) |a,b) 


BUFFER 0UT(1,J) (B(M),B(N)) 



a,b first and last word 

p integer constant or 

NAMELIST/group name^/ai, . . . , a^/ , , . /group namep/a-j, ... a 



of data block to be transferred 

integer variable: 0, even parity; 1, odd parity 



• 







NAM ELIST/SH IP/1 1,12 AB 




10 
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Form 


Examples 


READ (u,group name) 


REAP {B^nm 


WRITE fu,group name) 


WRITE (6,SH1P) 


READ group name 


READ SHIP 


PRINT group name 


PRINT SHIP 


PUNCH group name 


PUNCH SHIP 



group name symbolic name identifying tHe group a^, . . . a^ 



ENCODE Mn,v) iolist 

DECODE (c,fn,v) iolist 

c 



INTERNAL TRANSFER OF DATA 

ENCODE (40,1, ALPHA) A,B,C 
DECODE (77,17,CARD) INK 



length of record in characters; unsigned integer constant or 
simple Integer variable 

starting location of record; variable or array name 



REWIND u 
BACKSPACE u 
ENDFILE u 



sn FORMAT (fs^, 

fS: 



,fs,) 



FILE MANIPULATION 

REWIND 3 
BACKSPACE LUN 
ENDFILE 4 

FORMAT SPECIFICATION 
100 FORMAT (I6,F7.3,214) 



one or more field specifications separated by commas and/or 
slashes and optionally grouped by parentheses 

DATA CONVERSION 



Leading blanks are not significant in numeric input conversions; other blanks 
are treated as zeros. When an all-blank field is read with a Hollerith input 
specification, each blank character is translated to a display code 55o. The 
output field is right-justified and blank-filled for all output conversion. 



srEw.d Single precision floating point with exponent 

srEw.dEe Floating point with specified exponent length 

srEw.dDe Floating point with specified exponent length 

Si Fw.d Single precision floating point without exponent 

srGw.d Single precision floating point with or without 

exponent 

srDw.d Double precision floating point with exponent 
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2E13.3 

E10.2E1 

E30.20D3 

F7.3 

G14.6 

2D10.4 
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Form 



Examples 



rAw 

rRw 

rOw 

rOw.z 

rZw 



nX 
nH 

/ 

Tn 
V 



# 




rlw Decimal integer conversion 

rlw.z Integer with specified minimum digits 

rLw Logical conversion 



Alphanumeric conversion 

Alphanumeric conversion 

Octal integer conversion 

Octal integer with specified minimum digits 

Hexadecirr^ai conversion 



419 

16.2 

2L5 

A7 

4R10 

05 

024.16 

ZQ 




s optional scale factor of the form: nP 

r optional repetition factor 

w nonzero unsigned integer constant indicating field width 

d unsigned integer constant indicating digits to right of decimal point 

e nonzero unsigned integer indicating digits in exponent field 

z integer specifying minimum number of digits 




Intraline spacing 



Hollerith 



Format field separator; indicates end of FORTRAN 
record 

Column tabulation; control skips to column n 

Display code substitution; the rightmost $ix bits 
from the current variable in the input/output 
list are interpreted as display code 

Numeric substitution; the current variable in the 
input/output list supplies a positive integer value 
to be used in place of the - for the next 
variable in the input/output list 



9X 

8H THE END 
*FINIS* 

=5^ TEST 7 1^ 

^^NEWTEST" 
/8HNEW LINE/ 

T10 
V8.2 



A= 



OVERLAYS 

CALL OVERLAY {fname,j,j,recall,k) 

CALL OVERLAY (4HTEXT,1,0,BHRECALL) 

f name name of file or overlay in H format 

i,j octal with g B or decimal equivalent level numbers 

recall 6HRECALL stops reloading of overlay already fn memory 

k L format Hollerith constant: name of library containing overlay 

Any other non-zero value: overlay loaded from global library 





12 
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Form 



Examples 

OVEf{LAY(TE3T,0AOV^4) .- \. 



OVERLAY(fname,i,i,origm,ov=m~ 

fname file where generated overlay is\to be written ^ ' \' 

ij octal level numbers of the overlay ^ ~ ' ^ ~ , 

origin overlay origin; optional (not allowed for 0,0 overlay) , , 

ov=:m total decimal number(m) of the high level overlay structure; ^ 
optional ( valid only for 0,0 overlay) ; 

DEBUG STATEMENTS 

The D option on FTN control statement selects debugging mode; jf it 1$ not 
specified, debugging statements are treated as comments. 

Debug statements are written in columns 7-72; columns 1 and 2 of each state- 
ment must contain C$. Any character, other than blank or zero, in column 6 - 
denotes a continuation line. Columns 3, 4, and 6 of a continuation line must 
be blank, 

C$ DEBUG 

C$ DEBUG (name-,, , _ , name„) 



C$ AREA bounds^, . , . , bounds^ 
C$ DEBUG 



within program unit 



C$ AHEA/name^/bounds^, _ . , bounds^, 
/namej^/bounds-. , . . . , boundSj^ 

C$ DEBUG (name-j , name^) 

or 
C$ DEBUG 



external debug deck 



bounds (n^,n2) n^ initial line position; n^ terminal tine position 

(no) Hg single line position to be debugged 

(n,,*) n^ initial line position; * last Mne of program ^ 

{*,f^2^ * first line of program; n2 terminal line position 

(*,*) first and last lines of program 



C$ ARRAYS (a., 


V 


C$ ARRAYS 




^i 


array names 


C$ CALLS {$p . 


..,s„) 


C$ CALLS 




^i 


subroutine n 
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c$ 


FUNGS (f^;. . 


• '^nt 


c$ 


FUNCS 






h 


furtctian. names 


c$ 


GOTOS 




c$ 


NOGO 


- . , 


c$ 


STORES (c^,. 


..,c„i 




c> 


variable name 





variable name.Felatlonal operator .constant 

variable name^reJational operator .variable nanne 

variable^ name.checking operator, 

checking operators; 

RANGE - out of range 
' INDEF indefinite 
VALID out of range or indefinite 




level number: 0, tracing outside DO loops; n, tracing up 
to and mcludfng level n In DO nest 



C$ TRACE (Iv)^ 
C$ TRACE 
Iv 

C$ OFF 

C$ OFF {x^ X 

LIST DIRECTIVES 



List directive statements contain C/ in columns 1 and 2 with the option, LIST, 
ALL or LIST, NONE, appearing anywhere within columns 7-72, 

C/ L1ST,N0NE ' Stops source program listing and can suppress the other 
listings 



any debug option 




C/ LI ST, ALL 



Resumes source program listing 




COMPASS SUBPROGRAM IDENTIFICATION 

I DENT name IStarts in column 11) Begins COMPASS 

END (Starts in column 11) Terminates subprogram 
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FORTRAN INTRINSIC FUNCTIONS 

An intrinsic function is a compiler-defined procedure that returns a single value. 
The FORTRAN Extended intrinsic functions are shown in table 4. 

TABLE 4. FORTRAN INTRINSIC FUNCTIONS 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Absolute value |A| 


1 


Real 


Real 


ABS 


Y=ABS(X) 






1 nteger 


Integer 


lABS 


J=1ABS(I) 






Double 


Double 


DABS 


DOUBLE A,B 
B=DABS(A) 


Truncate A: sign of 


1 


Real 


Real 


AINT 


Y=AINT(X) 


A times largest integer 




Real 


Integer 


INT 


l=INT(X) 


<lAl^ 




Double 


Integer 


IDINT 


DOUBLE Z 
J=IDINT(Z) 


Remaindering 


2 


Real 


Real 


AMOD 


B=AM0D(A1,A2) 


AKmod A2) 




Integer 


Integer 


MOD^ 


>M0D(I1,I2) 


Choosing largest of 


63 


Integer 


Real 


AMAXO 


X=AMAXO(l,J,K) 


2-63 values: max 




Real 


Real 


AMAX1 


A=AMAX1(X,Y,Z) 


(A1 An) 




integer 


Integer 


MAXO 


L=MAXO{i,J,K,N) 






Real 


Integer 


MAX1 


l=MAX1(A,B) 






Double 


Double 


DMAX1 


DOUBLE W,X,Y,Z 
W=DMAX1(X,Y,Z) 


Choosing smallest of 


63 


1 nteger 


Real 


AMINO 


Y=AMIN0(1,J) 


2-63 values: min 




Real 


Real 


AMIN1 


Z=AMIN1{X,Y) 


(A1, . . . , An) 




Integer 


1 nteger 


MINO 


L=MINO(l,J) 






Real 


Integer 


MINI 


J=MIN1{X,Y) 






Double 


Double 


DMIN1 


DOUBLE A,B,C 
C=DMIN1(A,B) 


Convert from integer 


1 


1 nteger 


Real 


FLOAT 


X1=FL0AT{I) 


to real 












Convert from real to 


1 


Real 


1 nteger 


IFIX 


IY=IFIX(Y) 


integer 












Transfer sign of A2 to 


2 


Real 


Real 


SIGN 


Z=SIGN(X,Y) 


lAll, +A1 if A2=+0, 




Integer 


Integer 


ISIGN 


J=1SIGN(I1,I2) 


-A1 if A2=-0 




Double 


Double 


DSIGN 


DOUBLE XXZ 
Z=DSIGN(X,Y) 


Positive difference: if 


2 


Real 


Real 


DIM 


A=DIM(C,D) 


A1 > A2 then A1-A2. 




Integer 


Integer 


IDIM 


J=IDIM{I1,12) 


If A1 < A2 then 












Absolute value of a 


rguments must be < 2'*^- 


-1. 




^MOD or AMOD (a. 


o) is defined as a-[a/b] b, 


where [X] 


is the largest 


integer that does no 


t exceed the magnitude o 


' X with sic 


]n the same as X. 
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TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contd) 



Definition 



Arguments 



Max, 
No. 



Logical product; bit- 
by-'bft logical AND of 
2 or more values 

Logical $ym;. btt-by- 
bit logical OB of 2 or 
more values 

Exclusive Of{: bit-by- 
bit exclusive OR of 2 
or more values 

Complement: bit-by- 
bit Boolean comple- 
ment of A 

Shift A1 by t bit posi- 
tions: left circular if 
1 is positive; rtqht md 
off with sign exten- 
sion if \ is negative, 
< n 1 < 60"^^ 

iVIask by setting 1 . 
bits to 1 starting at 
left of word. 
0< I <6tP 

Obtain most significant 
part of double preci- 
sion argument 

Obtain real part of 
complex argument 

Obtain imaginary part 
of complex argument 

Express single preci- 
sion argument in 
double precision form 



63 



63 



63 



Type 



any 
type 



any 

t 
type' 



any 
type' 



any 
type 

At: 

any 

t 
type' 



integer 
Integer 



Type of 
Function 



no mode 



no mpde 



no~ mode 



no mode 



Double 



Com- 
plex 

Com- 
plex 

Real 



no rnoc^fi SHIFT 



Symbolic 
Name 



AND 



OR 



KOR 



COMPL 



no mode 



Real 



Real 



Real 



Double 



IVIASK 



SNGL 



REAL 



AIMAG 



DBLE 



Example 



C-ANDCXV,2) 



D=pR(X,Y.Z) 



D-X0R{X.Y,2) 



B=CCJVIPL(A) 



8=SHIFTfA,!) 



A^MASK( 1 ) 



DOUBLE Y 
X=SNGL(Y) 



COMPLEX A 
B=REAL(A) 

COMPLEX A 
D=AIMAG(A) 

DOUBLE Y 
Y=DBLE(X) 






For a double precision or complex argument, only the high order or real 
part is used. 

Function is undefined if outside these bounds. 
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TABLE 4. FORTRAN INTRINSIC FUNCTIONS (Contd) 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Express two real argu- 
ments in complex 
form: A1+A2i where 


2 


Real 


Complex 


CMPLX 


COMPLEX C 
C=CMPLX(A1,A2) 


Obtain conjugate of 
complex argument: 
a-bi where A=a+bi 


1 


Com- 
plex 


Complex 


CONJG 


COMPLEX X,Y 
Y=CONJG{X) 


Return random num- 
bers uniformly distri- 
buted over range <0,1); 
dummy argument is 
ignored 


1 


any 
type 


Real 


RANF 


Y=RANF(A) 


Obtain address of 
named variable or 
array element, or 
entry point of named 
external subprogram 


1 , 


any 
type. 


1 nteger 


tOCF 


J=LOCF(Q} 

' ,- 



FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS 

A basic external function is a predefined procedure (used to evaluate standard 
mathematical functions) included with the FORTRAN common library. Table 5 
shows the FORTRAN library basic external functions. 

TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Exponent: e to 


1 


Real 


Real 


EXP 


Z=EXP(Y) 


Ath power 




Double 


Double 


DEXP 


DOUBLE X,Y 
Y=DEXP(X) 






Complex 


Complex 


CEXP 


COMPLEX A,B 
B=CEXP(A) 


Natural logarithm 


1 


Real 


Real 


ALOG 


Z=ALOG(Y) 


of A 




Double 


Double 


DLOG 


DOUBLE X;Y 
Y=DLOG(X) 






Complex 


Complex 


CLOG 


COMPLEX A, B 
B=CLOG{A) 


Logarithm to 


1 


Real 


Real 


ALOG10 


B=ALOG 10(A) 


base 1 of A 




Double 


Double 


DLOG10 


DOUBLE D.E 
E=DLOG10(D) 


Trigonometric 


1 


Real 


Real 


SIN 


Y=SIN(X) 


sine of A 




Double 


Double 


DSIN 


DOUBLE D,E 
E=DSIN(D) 
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I TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) 




Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


iVlax. 
No. 


Type 


Trigonometric 




Complex 


Complex 


CSIN 


COMPLEX CC,F 


sine of A (cont) 










CC=CS1N(F) 


Trigonometric 


1 


Real 


Real 


COS 


X=COSY{Y) 


cosine of A 




Double 


Double 


DCOS 


DOUBLE D,E 
E=DCOS{D) 






Complex 


Complex 


CCOS 


COMPLEX CC,F 
CC=CCOS(F) 


Hyperbolic sine 


lllll 


Real 


Real 


SINH 


B==S1NH(A) 


of A 


liill 


Double 


Double 


DSfNH 


DOUBLE D,E 
E=DS1NH(D) 


Hyperbolic cosine 


lllll 


R^al 


Real 


COSH 


B=COSH{A) 


of A 


liiil 


Double 


Double 


DCOSH 


DOUBLE 0,E 
E=DCOSH{D} 


Hyperbolic 


1 


Real 


Real 


TANH 


B=TANH{A) 


tangent of A 




Double 


Double 


DTANH 


DOUBLE D,E 
E=DTANH(D) 


Error Function 


1 


Real 


Real 


ERF 


A1=ERF(A) 


Complementary 


1 


Real 


Real 


ERFC(A) 


Y=ERFC(X) 


Error Function 












Hyperbolic 


1 


Real 


Real 


ATANH 


Y=ATANH(D) 


Artangent of 












A where |A1<1 












Trigometric 


1 


Real 


Real 


SINH 


Z=SINH(C) 


Sine in 












degrees of A 












where |A|<2'^^ 












Trigometric 


1 


Real 


Real 


COSD 


W=C0SD(E) 


Cosine in 












degrees of A 












where |A|<2^^ 












Trigometric 


1 


Real 


Real 


tand"^ 


Y=TAND{X) 


Tangent in 












degrees of A 












where |A|<2'^'^ 












Square root 


1 


Real 


Real 


SORT 


Y=SQRT(X) 






Double 


Double 


dsqrt 


DOUBLE D,E 
E=DSQRT(D) 






Complex 


Complex 


CSQRT 


COMPLEX CC,F 
CC=CSQRT(F) 


18 
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TABLE 5. FORTRAN LIBRARY BASIC EXTERNAL FUNCTIONS (Contd) I 



Definition 


Arguments 


Type of 
Function 


Symbolic 
Name 


Example 


Max. 
No. 


Type 


Arctangent of A 


1 


Real 


Real 


ATAN 


Y=ATAN(X) 






Double 


Double 


DATAN 


DOUBLE D,E 
E=DATAN(D) 


Arctangent of 


2 


Real 


Real 


ATAN 2 


B=ATAN2(A1,A2) 


A1/A2 




Double 


Double 


DATAN 2 


DOUBLE D,D1,D2 
D=DATAN2{D2,D2) 


Remaindering 


2 


Double 


Double 


DMOD 


DOUBLE DM,D1,D2 
DIVI=DM0D(D1,D2) 


Modulus: square 


1 


Complex 


Real 


CABS 


COMPLEX C 


root (a^+b^) for 










CM=CABS(C) 


A=a+bi 












Arccosine of A 


1 


Real 


Real 


ACQS 


X=ACOS(Y) 






Double 


Double 


DACOS 


DOUBLE D,E 
D=DACOS(E) 


Arcsine of A 


1 


Real 


Real 


ASIN 


X=ASIN(Y) 






Double 


Double 


DASIN 


DOUBLE D,E 
D=DASIN(E) 


Trigonometric 


1 


Real 


Real 


TAN 


X=TAN(Y) 


tangent of A 




Double 


Double 


DTAN 


DOUBLE E,D" 
E=DTAN(D) 


The argument f 


Dr TAND must r 


ot be an 


add multip 


le of 90. 


^"^DMOD (a,b) is 


defined as a-[a/t 


] b, where 


[X] is th 


e largest integer that 


does not exceeo 


the magnitude 


3f X with 


sign the s 


ame as X. 
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LIBRARY SUBROUTINES AND FUNCTIONS 

The following utility subprograms are suppljed by the system. The DATE, 
IDATE, SECOND, TjlVIE and CLOCK routines- can be used as functions or 
subroutines. The value for these routines is always returned via the argument 
and the normal function return. 



I DATE (a) or CALL DATE (a) 
I JDATE(a) or CALL JDATE (a) 

I SECOND{t) or CALL SECOND {t) 



TiME(a) or CALL TIIVIE (a) 
CLOCK{a) or CALL CLOCK(a) 

CALL DISPLA (H,k) 



CALL REiVIARK {H} 

CALLSL(TE(i) 

CALLSLITET(i,j) 

CALL SSWTCH (ij) 

CALL OVERLAY (fiiameJJ,recall,k) 

CALL EXIT 

CALL CHEKPTX (filelist.n} 

CALL RECOVR (subr,flags,ck) 
CALL DUMP (a^,b^,f^,. 
CALLPDUMP (a-f,b^,f^, 



^nKV 



' n n' n 



Returns current date in format 
Amm/dd/yyA 

Returns current date in format 
BRyyddd. (not available under 
SCOPE 2.1) 

Returns elapsed central processor 
time as real number 

Returns current time in format 
Ahh.mm.ssA 

Places 1-80 character Hollerith mes- 
sage H and value from expression or 
variable k in dayfile 

Places 1-80 character Hollerith mes- 
sage H jn dayfile; 1-90 characters for 
SCOPE 2,1 

Turns on sense light 1-6;: turns 
off all 

Sets p2 if sense light i is off, j=1 if on 

Sets 1=^2 if switch i is off; pi if on 

Calls an overlay 

Terminates, program 

Takes a checkpoint dump- of all -files if 
n is zero; if n is nonzero a checkpoint 
dump is- taken of all the files specified 
by fileli'st 

Calls subr on abnormal termination 
(not available under SCOPE 2.1} 

Dumps storage and terminates pro- 
gram execution 

Dumps storage and returns control to 
calling program 



a,b first and last word of storage area to be dumped 

f==0 or 3, octal dump 
f=^1, real dump 
f=2, integer dump 



Adding 4 to any f values causes the values of a 
and b to be used as addresses. 




(7\ 







20 



60497900 B 



# 



CALL STRACE 
LEGVAR (a) 

CALL SYSTEM (num/msg) , 

CALL SYSTEMC {num,speclist) 
CALL LHVIERRdim) 

NUIVlERR(n) 

CALL RANSET (n) 
CALL RANGET (nam) 
CALL OPENMS (u;fx,lngth,t) 
CALL READMS (u,fwa,n,k) ^ 

CALL WRITMS (u,fwa,n,k,r,s) , 

CALL STINDX (ujx,!ngth,t) 

CALL CLOSMS (u) 



Prints traceback 

Checks variables; a -1 Is mdefinite, 
+1 is out of range, and is normal 

Prints error message and aborts if 
fatal error 

Prints non-standard error message 

Enables user to input data without 
risk' of termination up tb the limit 
of lim. 

Returns the number of errors since 
last LliVIERR call; n is a dummy 
argument 

Sets initial value of RANF seed to n 

Puts current seed of RANF in nam 

Opens mass storage file 

Transmits data from mass storage to 
central memory 

Transmits data from central memory 
to mass storage - 

Changes file index in central memory 
to, base specified in call 

Writes index from central memory to 
file anii closes file 



u unit designator 

ix Name of the array containing the master index 

Ingth Length of Index buffer: Number index, tngth > entries in 

master index + 1; name index, Ingth > 2* maximum number 
of entries in master index + 1 

t Index type: is number index; 1 is name index 

fwa First word address. in central memory of data buffer area 

n Number of 60-bit words in data record to be transferred 

k Record key: Number index 1 < k < lngth-1; name index, k 

can refer to any 60-bit quantity except ±D 

r Rewrite in place request: +1 is rewrite; -1 is rewrite if new record 

length < old record length; -otherwise, write at end-of-tnformation; 
is write at end-of-information (default). Can be omitted if no 
subindex flag parameter is required 

s Subindex flag, may be omitted; is flag is not included (default 

value). 1 is write subindex marker flag in control word for record 
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UNIT (u) 



EOF (u) 

IGGHEC (u) 

LENGTH iu) or 

CALL LENGTHX {u,nw,ubc) 

CALL LABEL (ujabmfo) 



CALL IVlOVLEV-(a,b,n) 



CALL READEC (a,b,n) 



Returns buffer status on iinit u; -1 
is unit ready, no error; +0 fs unit 
ready, EOF encountered; +1 is unit , 
ready, parity error encountered ' 

Checks for end of file; if zero, no 
end of file encountered 

Returns parity status on non-biiffer 
unit; if zero, no read parity error 

Returns number of words read and 
unused bit count on previous buffer 
or mass storage input/output request 

Sets tape label information-; iabinfo 
is a 4-word array containing label 
information ' ' .'-' 

Transfer? n consecutive words of data 
between extended core storage, cen- 
tral memory, SCIVl; or LClVl. a 1^ 
starting address of the data to be 
n>oved^and b is starting address of 
receiving location. 

Transfers n consecutive words of data 
beginning with a in central memory 
and b in extended core storage or 
LCIVI block. 






CALL WRITEC (a,b,n) 



CALL COMNEC {u) . or 
CALL CONNEC {u,cs) 



Transfers n consecutive words of data 
beginning with a in central memory 
and b in extended core storage or 
LCM block. 

Connects file to a terrninal (not 
available under SCOPE 2.1) 




cs character set 
CALL DISCON |u) 



Disconnects file from a terminal 
(not available under SCOPE 2.1) 
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SAMPLE DECK STRUCTURES 

A job deck submitted for execution through a card reader begins with a job 
statement and ends with an end-of-information card (a 6/7/8/9 multipunch 
in column 1. The deck is divided into sections by an end-of-record card (a 
7/8/9 multipunch in column 1). Refer to the appropriate operating system 
reference manual for information concerning control statements. 



COMPILING AND EXECUTING A FORTRAN PROGRAM 

The following deck structure is used for simple compilation and execution 
of a FORTRAN source program. 



Job statement 

USER statement N05 only 

CHARGE statement N05 only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN. 

LGO. 

7/8/9 

PROGRAM MAIN 



FUNCTION RTSM(A,B) 



END 

SUBROUTINE RUN(C) 



END 
7/8/9 

Data used in execution 

6/7/8/9 
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COMPILING IN TIMESHARING MODE 

The following deck structure is used when TS compilation mode is desired. 



Job statement 

USER statement NOS only 

CHARGE statment NOS only 

ACCOUNT statment NOS/BE and SCOPE 2 only 

FTNfTc;') i Timesharing mode is requested for 

(compilation 

7/8/9 

FORTRAN source deck 

6/7/8/9 



COMPILING A FORTRAN PROGRAM AND 
PRODUCING BINARY CARDS 

The following deck structure is used when the OPT=2 (full optimization) 
option of the FTN control card is desired. 



Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN(B=PUNCHB,OPT=2) The file PUNCHB is punched at end-of-job 

7/8/9 

FORTRAN source deck 

6/7/8/9 







• 
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LOADING AND EXECUTING A BINARY PROGRAM 

The following deck structure is used to load and execute a program 
composed of binary object code. 



Job statement 

USER statement 

CHARGE statment 

ACCOUNT statement 

MAP(OFF) 

INPUT. 

7/8/9 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



Binary deck 
6/7/9 

7/8/9 

7/8/9 

Data used during execution 
6/7/8/9 



End-of-file; terminates load (NOS only) 

( Empty record; terminates load (NOS/BE 
\ and SCOPE 2 only) 
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COMPILING AND EXECUTING WITH 
DIFFERENT DATA DECKS 

The following deck structure is used to execute a program using two 
different data decks. The program is compiled only once but executes 
twice. 




Job statement 
USER statement 
CHARGE statement 
ACCOUNT statement 
ETN. 

LGG„TAPE1. 
LG0„TAPE2. 

7/8/9 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



( Output is written on two separate files; 
< data 1 is written on TAPEl, data 2 is 
( written on TAPE2. 



J-/B 
'^^ 



PROGRAM MAIN(INPUT,OUTPUT) 

END 
7/8/9 

Data 1 used during first execution. 
7/8/9 

Data 2 used during second execution. 
6/7/8/9 
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COMPILING AND EXECUTING A FORTRAN 
SUBROUTINE AND A COMPASS SUBPROGRAM 

The following deck structure is used when compiling and executing a 
FORTRAN main program, FORTRAN subroutine, and a COMPASS 
subprogram. FORTRAN and COMPASS program unit source decks can be 
in any order. COMPASS source decks must conform with the format 
required by the COMPASS language. 



Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

^^, ,,^, ^, ( All diagnostics including ANSI are listed 

f'TN(EL=A) ion file OUTPUT 



LGO. 
7/8/9 



PROGRAM DONE(INPUT,OUTPUT) 



END 

SUBROUTINE S1(P1,P2) 



RETURN 

END 

IDENT SUB 
ENTRY Al 



END 
7/8/9 

Data used during execution 
6/7/8/9 
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COMPILING AND EXECUTING WITH A RELOCATABLE 
BINARY PROGRAM 

The following deck structure is used when a FORTRAN source program is 
compiled and executed with a relocatable binary deck. 




Job statement 

USER statement 

CHARGE statement 

ACCOUNT statement 

FTN. 

LOAD(LGO) 

LOAD(INPUT) 

EXECUTE. 

7/8/9 



FORTRAN source program 
7/8/9 

Binary deck 
6/7/9 

7/8/9 

7/8/9 

Data used during execution 
6/7/8/9 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 





End-of-file; terminates load (NOS only) 

i Empty record; terminates load (NOS/BE 
\ and SCOPE 2 only) 
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COMPILING AND EXECUTING WITH OVERLAYS 

The following sample deck structure is used when compilation and 
execution of a program with overlays is desired. 



NOS only 
NOS only 
NOS/BE and SCOPE 2 only 



Job statement 

USER statement 

CHARGE statement 

ACCOUNT statement 

FTN. 

LOAD(LGO) 

NOGO. 

SUM. 

7/8/9 



OVERLAY(SUM,0,0) Main overlay source deck 

PROGRAM LEO(INPUT,OUTPUT) 



CALL GROUND(40,0) 

CALL OVERLAY(3HSUM,1,0) 



Call to primary overlay 



END 

SUBkuU I INl GROUND(x,y) 



END 
OVERLAY(SUM,1,0) 



PROGRAM RDY 



Primary overlay source deck 



CALL OVERLAY(3HSUM,l,l) 

END 
OVERLAY(SUM,l,l) 

PROGRAM MLT 



Call to secondary overlay 



Secondary overlay source deck 



END 
7/8/9 

Data used during execution 
6/7/8/9 
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EXTERNAL DEBUGGING DECK 

The following deck structure is used when debugging of all program units is 
desired. The external debugging deck is placed immediately in front of the 
first source line of the first program unit. All program units (here, 
Program A and Subroutine B) are debugged unless limiting bounds are 
specified in the deck. 



Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

FTN(D) 

LGO. 

7/8/9 

C$ DEBUG 

I External debugging deck 

PROGRAM A 



END 
SUBROUTINE B 



RETURN 
7/8/9 

Data used during execution 

6/7/8/9 
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INTERSPERSED DEBUGGING STATEMENTS 

The following sample deck structure is used when interspersed debugging 
statements are desired. Debugging statements are inserted at the point in 
the program where they are activated. 

Job statement 

USER statement NOS only 

CHARGE statement NOS only 

ACCOUNT statement NOS/BE and SCOPE 2 only 

ETN(D) 

LGO. 

7/8/9 

PROGRAM MAIN 

Specification statements 



Executable statements 

C$ FUNCS „^p., ,r. , , 

P* nAi 1 <; uLBUG statements 

Executable statements 



C$ STORES(A) r^f^„, ,^ . ^ 

C$ OFF(FUNCS) DEBUG statements 

Executable statements 



7/8/9 

Data used during execution 
6/7/8/9 
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EXTERNAL DECK ON SEPARATE FILE 

The debugging deck is on file INPUT and the source deck on a named file. 
Alternatively, the debugging deck is placed on a separate file (external debugging 
deck) named by the D parameter on the FTN control statement and called in 
during compilation. All program units will be debugged (unless the program 
units to be debugged are specified in the deck). This positioning is useful when 
several jobs can be processed using the same debugging deck. 





JL 



Debug Deck 




(Input) 




FTN (l=TAPE1,D) 
Compiler 




Jl 



Source Deck 



(Input) 



(Input) 




FTN (D=TAPE1 
Compiler 
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SORT/MERGE 4 AND 1 INTERFACE 

Sort/Merge 4 and 1 processing can be initiated through FORTRAN 
Extended call statements. Sort/Merge 4 and 1 uses the unused part of field 
length as a scratch area; if necessary, additional field length is obtained 
from the system. For this reason, the STATIC option of the FTN control 
statement must not be specified with programs using Sort/Merge 4 and 1. 
Refer to the Sort/Merge 4 and 1 Reference Manual for detailed 
information. 

The following statements initiate Sort/Merge 4 and 1 processing. 

CALL 5MSORT(mrl) Sort-only or sort and merge processing. 

CALL SMSORTB(mrl,ba) Balanced tape sort under NOS and NOS/BE 

only. 

CALL SMSORTP(mrl,ba) Polyphase tape sort under NOS and NOS/BE 

only. 

CALL SMMERGE(mrl,ba) Merge only processing. 

mrl Maximum record length in characters of record to be sorted. 

ba Optional number of words of central memory used by Sort/Merge for 

working storage; applies only to NOS and NOS/BE (default ZZOOOg) 

Optional total in decimal of large core memory used as a buffer 
area for ail intermediate scratch files applies only to SCOPE 2. 

CALL SMFILE(dis,i/o,lfn,action) 

One call to SMFILE must be issued for each file unless the output file is 
handled by SMOWN. 

dis File processing; specified as follows: 

"SORT" File to be sorted. 

"MERGE" File to be merged. 

"OUTPUT" File to receive output. 

i/o Type of input/output; specified as follows: 

"FORMATTED" File acessed with formatted input/ 

"CODED" output. 

"BINARY" File accessed with unformatted input/ 

output. 

File accessed with CYBER Record 

Manager interface routines 
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Ifn Logical file name; can either be a unit number or the file name 

in nLfilename format. If i/o is specified as zero , Ifn can be an 
array containing the file information table. 

action File disposition after sort or merge; specified as follows: 

"REWIND" 

"UNLOAD" 

"NONE" (default) 

CALL SMKEY(charpos,bitpos,nchar,nbits,code,colseq,order) 

SMKEY must be called once for each sort key. 

charpos Integer specifying the starting position of sort key counting 
from 1. 

bitpos Integer specifying the first bit of charpos counting from 1. 

nchar Number of characters in sort key. 

nbits Number of bits in excess of nchar. 

The remaining three parameters are optional. 

code Code used to interpret keys: specified as follows: 



"DISPLAY" 
"FLOAT" 
"INTEGER" 
"LOGICAL" 



Internal display code 
Floating point data 
Signed integer data 
Unsigned integer data (default) 



The following identifiers must be separated by commas as 
indicated. 

"DISPLAY", Numeric data in display code; sign 

"SIGN", present as overpunch at beginning of 

"LEADING" field (NOS and NOS/BE only). 

"DISPLAY", Numeric data in display code; sign 

"SIGN", present as overpunch at end of field. 
"TRAILING" 

"DISPLAY", Numeric data in display code; sign is 

"SEPARATE", a separate character at beginning of 

"LEADING" field (NOS and NOS/BE only). 

"DISPLAY", Numeric data in display code; sign is 

"SEPARATE", a separate character at end of field 

"TRAILING" (NOS and NOS/BE only). 
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colseq 



Name of user-supplied collating sequence; can be used only if 
code is "DISPLAY". Possible collating sequences are the 
following: 



"ASCII6" 

"COBOL6" 

"DISPLAY" 

"INTBCD" 

Seqnam 



ASCn 6-bit collating sequence. 
COBOL 6-bit collating sequence. 
Internal display code collating sequence. 
Internal BCD collating sequence. 
Collating sequence defined by SMSEQ 



order Specifies order of sort processing as follows: 

"A" Ascending (default) 

"D" Descending 

CALL Stv1SEQ(seqnam,seqspec) 

SMSEQ defines a user's collating sequence. 

seqnam Name of user -supplied collating sequence 

seqspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
arra^' must be terminated b^' a negative numiber. 

CALL SMEQU(colseq,equspec) 

SMEQU defines two or more characters in a collating sequence as equal foi 
comparison purposes. 

colseq Name of the collating sequence; determined by a previous call tc 
SMKEY or SMSEQ. 

equspec Name of integer array specifying the characters to be collated. 
Each character should be in either nRf or octal format. The 
array must be terminated by a negative number. 

CALL SMOPT(optiist) 

SMOPT specifies special record handling options and must be called 
immediately after 5MSORT or SMMERGE. If SMOPT is called more than 
once the last call overrides all previous calls. 

optlist Non-ordered series of options separated by commas; specified as 
follows: 



"VERIFY" 
"RETAIN" 



Check output for correct sequencing 

Retain records with identical sort keys in 
order of appearance on input file. 
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"VOLDUMP" Checkpoint dump at end-of-volume (NOS 

and N05/BE only). 

"DUMP" Checkpoint dump after 50000 records (NOS 

and NOS/BE only). 

"DUMP",n Checkpoint dump after n (decimal) records 

(NOS and NOS/BE only). 

"NODUMP" No checkpoint dump (NOS and NOS/BE 

only). 

"NODAY" Suppress dayfile messages (NOS and 

NOS/BE only). 

"ORDER",mo Determines intermediate merge order 

(mo); 2<mo<64 (NOS and NOS/BE only). 

"COMPARE" Use key comparison technique (NOS and 

NOS/BE only). 

"EXTRACT" Use key extraction technique (NOS and 

NOS/BE only). 

CALL SMOWN(exnum2,subnamei, . . . ,exnump,subnamen) 

exnumj Number of the owncode exit. 

subnamej Name of the user-supplied EXTERNAL owncode exit 

subroutine which exits through a call to system subroutine 
SMRTN. 

entry SUBROUTINE subname(a,rl) 

exit 1 or 3 CALL SMRTN(retaddr), for retaddr= 1 or 3. 

CALL SMRTN(retaddr,b,rl), for retaddr = 
or 2. 

No parameters are needed for exit number 1 if no input files 
are used. 

entry SUBROUTINE subname 

exit 2 or 4 CALL SMRTN(retaddr), for retaddr = 0. 

CALL SMRTN(retaddr,b,rl), for retaddr = 1. 

entry SUBROUTINE subname(ai,rlx,a2,rl2) 

exit 5 CALL SMRTN(bi,rli,b2,rl2), for 

retaddr = 0. 

CALL SMRTN(bi,rli), for retaddr = 1. 







„1 
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# 



retaddr 



1 

2 

3 

a,b 

rl 
CALL SMTAPECtaplist) 



Return address 

Normal return address 

Normal return address + 1 

Normal return address + 2 

Normal return address + 3 

Integer array of rl/10 words that contains 
the record stored when subname is called. 

Record length in characters. 



SMTAPE specifies all magnetic tape intermediate merge files (NOS and 
NOS/BE only). 

taplist List of names assigned to intermediate merge files. 

CALL SMEND 

SMEND is required to initiate execution of Sort/Merge 4 and 1. 

CALL SMABT 



SfvlABT terminates a se'^uence "^ ^r\vi-ft\Ac 
execution of Sort/Merge. 



~-r 1=11 I vj _i_ t^oxxo vvxutiuiuu 
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CYBER RECORD MANAGER INTERFACE 

The FORTRAN user can access CYBER Record Manager facilities directly by 
calling the following subprograms. File names used in the calls must not appear 
in a PROGRAM statement. FIT field mnemonics used tO' represent parameters 
in the CALL statements are the same as the FIT field mnemonics defined in the 
CYBER Record Manager reference manual. These subprograms are not callable 
through SCOPE 2.1. Except for CALL FlLExx, the order of parameters is fixed 
SO that all parameters to the left of a desired option must be specified. Refer 
to either the CYBER Record Manager Basic Access Methods Reference Manual 
or to the CYBER Record Manager Advanced Access Methods Reference Manual 
for more detailed information. 




CALL CHECK (fit) 

CALL CLOSEM (fit,cf,typ) 
CALL DLTE (fit,ka,l<p,0,ex) 

CALL ENDFILE (fit) 

CALL FlLExx (fit,keyword.|,value^,... 

keywordj^.value^^) 
CALL FITDMP (fit,d) 

CALL FLUSH (afit) 

CALL FLUSH1 (fit) 

CALL GET (fit,wsa,<j ^ >,kp,mkl,| >, 

& " 

CALL GETN (fit,wsa,ka,ex) 

CALL GETP (fit,wsa,ptl, 4LSKIP,dx) 



Determines I/O status for SO and WA 
file types. 

Closes file for all file types. 

Deletes record for IS, DA, and AK file 
types. 

Writes end-of-partition for SQ file type. 
Establishes FIT for all file types. 



Dumps the contents of the FIT to error 
file ZZZZEG. 

Performs all file close operations but the 
files remain open. 

Performs all the file close operations for 
a single file. The file remains open. 

Reads record for all file types. 



Reads next record for IS, DA, and AK 
file types. 

Reads partial record for SQ and WA 
file types. 



Opens file for all file types. 

CALL PUT (fit,wsa,rU" V,kp,pos,ex) Writes record for all file types, 
wa 



CALL OPENM (fit,pd,of) 
fka 



CALL PUTP (fit,wsa,ptl,rl,ex) 
CALL REPLC (fit,wsa,rl,ka,kp,0,ex) 

CALL REWND (fit) 



Writes partial record for SQ and WA 
file types. 

Replaces record for SQ, IS, DA, and AK 
file types. The parameters rl, ka and kp 
must be specified as zero for SQ file type. 

Rewinds file for SQ, IS, DA, and AK 
file types. 



> 
^ 
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CALL RMKDEF (fit,rkw,rkp,kl,0,kf. Defines primary or alternate key field 

ks,kg,kc,nl,ie,ch) in a record for IS, DA, and AK nnultiple 

index file types. 



CALL SEEKF (fit,ka,kp,mkl,ex) 
CALL SKIP (fit,±count) 
CALL STARTM (fit,ka,kp,mkl,ex) 
CALL STOREF (fit,keyword,value) 
CALL WEOR (fit,lev) 

CALL WTMK (fit) 
I FETCH (fit,keyword) 



Initiates record search for IS, DA, and 
AK file types. 

Repositions file for SQ, IS, and AK file 
types. 

Positions an IS or AK file to a record 
that meets a specific condition. 

Sets FIT value in field named for all 
file types. 

Terminates S type record after PUTP, 
writes end-of-section or end-of-partition 
for SQ file type. 

Writes tape mark for SQ file type. 

Integer function. Retrieves contents of 
FIT field named for all file types. 



XX File organi;?ation mnemonic: 

SQ sequential files 

WA word addressable files 

IS indexed sequential files 

DA direct access files 

AK actual key files 

Multiple index processing is allowed for IS, DA, and AK file 
organizations. 

fit Name of the 35-word array containing the file information 

table (FIT) 

afit Name of the array containing a list of addresses of FITS; the 

array must be terminated by a word of zeros. 

keyword Name of a FIT field in L format 

value Value for FIT field specified by keyword 



Pd 



Type of processing: 

5LINPUT 

6L0UTPUT 

3LI-0 

3LNEW 



read only 

write only 

read and write 

IS, AK, or DA file to be created (write 

only) 
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of 



cf 



typ 



wsa 

ka 

wa 

kp 

mkl 



dx 
pos 



count 

lev 
pti 
4LSKIP 



Open flag; specifies position of file when opened as follows: 

ILR Rewind. 

1LN No file positioning. 

1LE File is positioned just before end-of-information. 

Close flag; specifies position of file after close as follows: 

ILR Rewind. 

1LN No rewind. 

ILU Unload. 

3LRET Return. 

3LDIS Disconnect (ternninal files only). 

3LDET No positioning; release buffer space and remove 
from active file list. 

Type of close to be performed on SQ files only; omitted for 
all other file organizations: 

SLVOLUME Volume close. 

4LFILE File close. 

Working storage area. 

Address of key for DA, AK, or IS records. 

Word address for read or write. 

Beginning character position of key within ka; 0-9. 

Major key length on IS files; symbolic key type. 

Record length in characters; 1 indicates positioning rather 
than length. 

Name of user owncode error exit subroutine; must be specified 
in an EXTERNAL statement. 

Name of end-of-data exit subroutine (EXTERNAL). 

Duplicate key processing; indicates action to be taken when a 
duplicate key is encountered: 

First record in a duplicate key chain will be 

deleted or replaced. 

Number of logical records to be skipped; positive for forward 
skip, negative for backward skip. 

Level number for end-of-section; to 1 To- 
Partial transfer length in characters. 
Skip to beginning of next record before reading. 
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nl Null suppression: = null values recorded (default). 

ie Include/exclude sparse control character; specified as follows: 

E Exclude alternate key value 

I Include alternate key value 

ch Characters that qualify as sparse control characters (maximum 36). 

id FIT identifier. 

rkw Relative keyword (0 = first word). 

rkp Relative key position (0 = keyword aligned starting at rkw position. 

kl Key length in characters (1-255 for symbolic key; 10 for signed 

key). 

kf Key type: = symbolic; 1 = signed integer; 2 = unsigned integer. 

ki Summary index; reserved 0. 

ks Optional: substructure for each primary key list in the index: I = 

index-sequential; F = FIFO; U (default) - unique; can be specified 
as L format Hollerith constant. If ks is specified, kg and kc must 
be defined. 

I^r-i - ,^;-.-/-. r-.-F T^r^r-i/^^f-;!-" »-.».<->■ ■!-> lr~. ...U;/-.I-» l^r-.». r.ar>lAo.-^ /^ (-1 S> 'f •"> ' > ' <" — O^ 

is.y oiz-c ui icpcaUiiiy yiuup ii i wiixi^ii r-cy loonjoo \Lic; i avjii, — ^Jj 

or the index block size, 
kc occurrences of group (default = 0). 



POST MORTEM DUMP 

Post Mortem Dump (PMD) analyzes the execution-time errors in 
FORTRAN programs. To use PMD, the PMD parameter must be specified 
on the FTN control statement. PMD is then activated by a fatal error or 
by one of the user-callable subroutines PMDLOAD or PMDSTOP. 

CALL PMDARRY(i,j,k) Prints one, two, and three dimensional arrays 

when an abort, PMDLOAD or PMDSTOP is 
called; i, j, and k represent the first, second, and 
third dimensions respectively. 



CALL PMDDUMP 



CALL PMDLOAD 



Causes a dump of variables in the calling routine 
when an abort or PMDLOAD or PMDSTOP is 
called. 

Causes an immediate dump of variables in the 
calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. 
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CALL PMDSTOP 



Causes an immediate dump of variables in the 
calling routine, all routines in the traceback 
chain, and any routines that have called 
PMDDUMP. The job is aborted. 




COMMON MEMORY MANAGER INTERFACE 

Ail Common Memory Manager (CMM) interfaces for NOS and NOS/BE are 
on the library SYMLIB. For a run using CMM interface routines, the user 
must either include the loader statement LDSET(LIB=SYMLIB) in the 
loader directives, or include a CALL SYMLIB subroutine call in the main 
program. SCOPE 2 users must specify 5YMIO in the LDSET statement 
instead of SYMLIB. 






CALL CMMALF(ibksz,iszcde,igrpid,iblfwa) 



CALL CMMFRF(ibifwa) 



Allocates a fixed position 
block 

Frees a fixed position block 
when no longer needed 



iblksz Number of words required for block 

iszcds Size code: 

Fixed size block 

1 Block can grow at last word address 

2 Block can shrink at last word address 

4 Block can shrink at first word address 

5 Block can grow at first word address and shrink at 
last word address 

6 Block can shrink at first word address and last word 
address 

7 Block can shrink at first word address and last word 
address and grow at last word address 

igrpid Group identifier: 

Item does not belong to a group 

>0 The block is assigned to this group. (See Common 
Memory Manager Reference Manual.) 

iblfwa The first word address of a block allocated by CMM, value 

returned by a call to CMMALF. 



^ ^ 




FORTRAN-CYBER INTERACTIVE 
DEBUG INTERFACE 

CYBER Interactive Debug (CID) is a debugging facility, available under 
NOS and NOS/BE only, which allows the user to monitor and control 
program execution from an interactive terminal. Debug tables must be 
produced during compilation to make all of the CID features available for 
use with FORTRAN programs. Debug tables are created if, prior to 
compilation, debug mode is turned on via the DEBUG control statement. 
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DEBUG or DEBUG(ON) Turns on debug nriode 

DEBUG(OFF) Turns off debug mode 

Alternatively, debug tables can be created by compiling the program using 
the DB=ID or DB option of the FTN control statement. If debug tables are 
not created during compilation, CID can be utilized by turning debug mode 
on via the DEBUG control statement prior to execution; hov/ever, not all of 
the CID features are available. Refer to the CYBER Interactive Debug 
Reference Manual for more information about CID. 

FORTRAN CONTROL STATEMENT 

The control statement FTN4 can be used interchangeably v/ith the 
follov\/ing forms of the FTN control statement: 

FTN . comments 

FTN(p2, . . . ,pp,)comments 

FTNjP]^, . . . ,pp,. comments 

The optional parameters, pj, can appear in any order. All parameters 
must be separated by commas. 

FORTRAN CONTROL STATEMENT PARAMETERS 

• A EXIT 

A=0 System advances to the next control statement 

omitted v\/hether or not fatal a compile-time error occurs. 

A System branchs to the next EXIT or teminates if a fatal 

compile-time error occurs. 

• B BINARY OBJECT CODE FILE 

B Generated binary object code is placed on file LGO. 

omitted 

B=lfn Generated binary object code is placed on file Ifn. 

B=0 No binary object code is produced. 

• BL BURSTABLE LISTING 

BL=0 Output listing is generated in compact form, 

omitted 

BL Page ejects are generated between parts of output listing. 



60497900 B 43 < 



C COMPASS ASSEMBLY 

C=0 The FORTRAN internal assembler is selected, 

omitted 

C The COMPASS assembler is selected. 

CC CONTROL STATEMENT CONTINUATION 

CC=0 The FTN control statement appears on one line only, 

omitted 




f'^\ 




CC The FORTRAN compiler interprets the following control '**' 

statement as a continuation of the FTN control statement. 

D DEBUGGING MODE PARAMETER 

D=0 Debug statements are ignored, 

omitted 

D=lfn Debug statements are on file Ifn. 

D Debug statements are on file INPUT. 

DB CYBER INTERACTIVE DEBUG 

DB=0 No debug tables are created, 

omitted 

DB=ID Debug tables are created. This option must be specified 

DB if the DEBUG control statement is not specified but the 

program is to be debugged using CID. 

E EDITING 

E=0 Object file is generated in normal binary code, 

omitted 

E=lfn Object file is output as COMPASS line images on file Ifn. 

E Object file is output as COMPASS line images on file 

COMPS. 

EL ERROR LEVEL 

EL=I Informative and fatal diagnostics are listed if OPT=0, 

omitted 1, or 2; note, warning and fatal diagnostics are listed if in 

TS mode. 

EL=A All non-ANSI and fatal diagnostics are listed. Informative 

diagnostics are listed if OPT=0, 1, or 2; note and warning 
diagnostics are listed if in TS mode. 

EL=N Fatal diagnostics are listed if OPT=0, 1, or 2; note, 

warning, and fatal diagnostics are listed if in TS mode. 
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EL=W Fatal diagnostics are listed if OPT=0, 1, or 2; warning and 

fatal diagnostics are listed if in TS mode. 

EL=F Fatal diagnostics are listed. 

ER ERROR RECOVERY 

ER=0 Code is generated for object-time reprieve. (Default for 

OPT=l, 2) 

ER No code is generated for object-time reprieve. (Default 

for TS and OPT=0) 

G SOURCE OF SYSTEM TEXT 

G=0 System text loading from sequential binary file is 

omitted prevented. 

G=:lfn First sytem text overlay is loaded from file Ifn. 

G=lfn/ovl System text overlay is loaded from file Ifn. 

G System text overlay is loaded from file SYSTEXT. 

GO LOAD AND GO 

GO=0 The binary object file is not loaded and executed at the 

omitted end of compilation. 

GO The binary object file is loaded and executed at the end of 

compilation. 

I SOURCE INPUT FILE 

I=INPUT Source code is on file INPUT, 
omitted 

I=lfn Source code is on file Ifn. 

I Source code is on file COMPILE. 

L LIST OUTPUT FILE 

L Listable output is written on file OUTPUT, 

omitted 

L=lfn Listable output is written on file Ifn. 

L=0 Fatal diagnostics and the statements that caused them 

are listed on the file OUTPUT. All other compile-time 
output is suppressed. 
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• LCM LEVEL 2 AND LEVEL 3 STORAGE ACCESS 

LCM=D Direct mode (17-bit address mode) is selected for 

omitted level 2 or 3 data. 

LCM=I Indirect mode (21 -bit address mode) is selected for level 2 

or 3 data. T5 mode always uses 21-bit addressing for 
level 2 or 3 data. 

Level 2 data applies only to the CYBER 170 Model 176, CYBER 70 
Model 7600 computers. 

• ML MODLEVEL MICRO 

ML The current date in the form yyddd is used for the 

omitted MODLEVEL micro. 

ML=n The value specified by n (1-7 letters or digits) is used for 

the MODLEVEL micro. 

• OL OBJECT LIST 

OL=0 No object code is listed, 

omitted 

OL Object code is listed on list output file. 

• OPT OPTIMIZATION 

OPT=l Standard compilation and execution are activated, 

omitted 

OPT=0 Fast compilation and the T and ER options are activated. 

. OPT=2 Fast execution is activated. 

OPT 

• P PAGINATION OF OUTPUT LISTING 

P=0 Page numbering begins at 1 for each subprogram, 

omitted 

P Page numbering is continuous across program units. 

• PD PRINT DENSITY 

PD=6 Compile-time listings are 6 lines per inch, 

omitted 

PD=8 Compile-time listings are 8 lines per inch. 

PD 
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PL PRINT LIMIT 

PL=n Maximum number of records that can be written to file 

OUTPUT at execution time is set by n. (Default PL=5000.) 

PMD POST MORTEM DUMP 

PMD=0 No symbol tables are created, 

omitted 

PMD Symbol tables that are accessed by the Post Mortem 

Dump facility are generated. PMD must be specified if 
the facility is to be used. 

PS PAGE SIZE 

PS=n Maximum number of lines per page including headers for 

compiler listings is set by n. (Default PS=60.) 

PW PAGE WIDTH 

PW=n Number of characters (50-136) on a line of listable output 

in TS mode is set by n. (Default PW=126.) 

PW Number of characters on a line of listable output is set to 

72. (Default for files connected to a terminal.) 

Q PROGRAM VERIFICATION 

Q=0 Normal compilation is produced, 

omitted 

Q The compiler performs a full syntactic scan of the 

program, but no object code is produced. 

R SYMBOLIC REFERENCE MAP 

R=l A short map (symbols, addresses, properties, DO loop 

omitted map) is produced. 

R=0 No map is produced. 

R=2 A long map (short map plus reference by line number) 

R is produced. 

R=3 A long map plus a listing of common block numbers and 

equivalence classes is produced. In TS mode R=3 is 
identical to R=2. 
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ROUND ROUNDED ARITHMETIC COMPUTATIONS 

ROUND=0 Arithmetic computations are not rounded, 
omitted 

ROUND=op The hardware rounding features are selected for the 
arithmetic operators specified by op (+ - * /). 

ROUND The hardware rounding features are selected for the 
arithmetic operations + - * /. 

S SYSTEM TEXT FILE 

S=ovl System text overlay loaded from job's current library set. 

S=lib/ovl The system text overlay named ovl is loaded from the 

library called lib which can be either a user library file or 
a system library. 

S=0 No system text file is loaded if COMPASS is called to 

assemble any intermixed program. (Default if G?^0.) 

S The system text overlay named SYSTEXT is loaded from 

the job's current library set. (Default if G=0.) 

SEQ SEQUENCED INPUT FILE 

SEQ=0 Source code is in standard FORTRAN format, 

omitted 

SEQ Source code is in sequenced line format. 

SL SOURCE LIST 

SL The source code is listed on the file specified by the 

omitted L parameter. 

SL=0 No source code is listed. 

STATIC STATIC LOADING 

STATIC=0 Dynamic memory management is used at execution 
omitted time; no LDSET directives are generated. 

STATIC Dynamic memory management is inhibited; a set of 

LDSET and USE directives (NOS and NOS/BE only) are 
generated. 

SYSEDIT SYSTEM EDITING 

SYSEDIT=0 All input/output references are accomplished directly, 
omitted 

SYSEDIT All input/output references are accomplished indirectly. 
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• T ERROR TRACEBACK 

T=0 No traceback occurs when an error is detected, 

omitted 

T A full error traceback occurs when an- error is detected. 

• TS TIMESHARING MODE 

T5=0 OPT=l is selected, 

omitted 

T TS mode single pass compilation is selected. 

• UO UNSAEE OPTIMIZATION 

UO=0 Unsafe optimization is not performed, 

omitted 

UO Potentially unsafe operations are performed when 0PT=2. 

• X EXTERNAL TEXT NAME 

X The file OPL is the source of external text (XTEXT). 

omitted 

X=lfn The file Ifn is the source of external text (XTEXT). 

o Z ZERO 

Z=0 No zero word parameter list is passed, 

omitted 

Z All subroutine calls having no parameters are forced to 

pass a parameter list consisting of a zero word. 
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